home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / ls 5 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.4 KB  |  80 lines
  1. 100 rem
  2. 110 rem spritedaten rechts gehen
  3. 120 rem
  4. 130 print"[147]sprite-daten 1 werden uebertragen."
  5. 140 rem  *********phase 1*************
  6. 150 for n=8192 to 8254:read q:poke n,q:next
  7. 160 data 0,160,0,2,168,0,2,145,64
  8. 170 data 10,85,64,10,85,0,40,84,0
  9. 180 data 0,208,0,0,240,0,1,124,0
  10. 190 data 5,255,0,23,255,0,23,255,64
  11. 200 data 5,255,80,1,252,80,0,168,0
  12. 210 data 0,170,0,2,250,128,10,194,128
  13. 220 data 91,2,128,92,6,128,21,69,84
  14. 230 rem  *********phase 2*************
  15. 240 for n=8256 to 8318:read q:poke n,q:next
  16. 250 data 0,160,0,2,168,0,2,145,64
  17. 260 data 10,85,64,10,85,0,40,84,0
  18. 270 data 0,208,0,0,240,0,3,124,0
  19. 280 data 1,127,0,1,255,0,5,255,0
  20. 290 data 1,255,64,1,125,64,0,105,0
  21. 300 data 0,170,0,0,250,0,2,186,0
  22. 310 data 10,202,0,27,40,0,21,85,64
  23. 320 rem  *********phase 3*************
  24. 330 for n=8320 to 8382:read q:poke n,q:next
  25. 340 data 0,160,0,2,168,0,2,145,64
  26. 350 data 10,85,64,10,85,0,8,84,0
  27. 360 data 32,208,0,0,240,0,3,124,0
  28. 370 data 3,127,0,13,127,0,13,127,0
  29. 380 data 15,95,0,3,92,0,2,148,0
  30. 390 data 0,171,0,0,235,0,2,168,0
  31. 400 data 1,232,0,1,160,0,1,85,64
  32. 410 rem  *********phase 4*************
  33. 420 for n=8384 to 8446:read q:poke n,q:next
  34. 430 data 0,160,0,2,168,0,2,145,64
  35. 440 data 10,85,64,10,85,0,40,84,0
  36. 450 data 0,208,0,0,240,0,3,124,0
  37. 460 data 3,95,0,15,95,0,15,95,0
  38. 470 data 15,215,0,3,213,0,2,169,0
  39. 480 data 0,171,0,0,171,128,2,174,128
  40. 490 data 10,186,0,10,21,0,5,85,64
  41. 500 rem  *********phase 5*************
  42. 510 for n=8448 to 8510:read q:poke n,q:next
  43. 520 data 0,160,0,2,168,0,2,145,64
  44. 530 data 10,85,64,42,85,0,8,84,0
  45. 540 data 0,208,0,0,240,0,3,124,0
  46. 550 data 3,95,0,15,95,0,15,215,0
  47. 560 data 31,213,0,23,245,64,2,169,64
  48. 570 data 2,168,0,2,186,0,10,142,128
  49. 580 data 106,14,128,104,14,128,85,5,84
  50. 590 rem  *********phase 6*************
  51. 600 for n=8512 to 8574:read q:poke n,q:next
  52. 610 data 0,160,0,2,168,0,2,145,64
  53. 620 data 10,85,64,42,85,0,8,84,0
  54. 630 data 0,208,0,0,240,0,3,124,0
  55. 640 data 3,95,0,15,95,0,15,95,0
  56. 650 data 15,95,0,7,215,0,6,149,0
  57. 660 data 2,168,0,2,171,0,2,186,0
  58. 670 data 2,186,0,10,232,0,5,85,80
  59. 680 rem  *********phase 7*************
  60. 690 for n=8576 to 8638:read q:poke n,q:next
  61. 700 data 0,160,0,2,168,0,2,145,64
  62. 710 data 10,85,64,10,85,0,40,84,0
  63. 720 data 0,208,0,0,240,0,3,124,0
  64. 730 data 3,127,0,13,127,0,13,127,0
  65. 740 data 15,95,0,3,95,0,2,148,0
  66. 750 data 2,168,0,2,168,0,2,168,0
  67. 760 data 11,40,0,31,40,0,21,85,0
  68. 770 rem  *********phase 8*************
  69. 780 for n=8640 to 8702:read q:poke n,q:next
  70. 790 data 0,160,0,2,168,0,2,145,64
  71. 800 data 10,85,64,10,85,0,8,84,0
  72. 810 data 32,208,0,0,240,0,3,124,0
  73. 820 data 1,127,0,13,127,0,5,255,0
  74. 830 data 5,255,0,1,127,0,1,93,0
  75. 840 data 2,168,0,2,168,0,10,234,0
  76. 850 data 27,10,0,20,10,0,5,69,80
  77. 860 rem  *****************************
  78. 870 print"sprite-daten 1 sind installiert!"
  79. 880 end
  80.